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AAA ABR 
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AAA ALA 
AAA Bib 
slat AA 
Aba AAA 
AAA AAA 
RRA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAR AAA 
AKA ABA 
ALB AAA 
RAR AAA 
AAA AAA 
bhh ABA 
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OBJEXEOUT = Handle Report Output 18. $ep-1984 23: AX-11 Bliss-32 V4.0-7 v 
= on 15-seo-198 7 38:3! ANAL YZ.SRC OBJEXEOUT. 8 2:1 — 


1 Ztitle “OBJEXEOUT = Handle Report Output’ 
module objexeout ( 
ident="v04-000") = begin 


' 
[eee eeeeeeeeeteteteteketeteeTeeeeeTeTeTeeHeretereeeeeeeeeKerereeeeTeeeetere 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie alg er ® i FURNISHED ane? A LICENSE AND MAY | # SED AND coriee 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICE AND WITH THE 
:* INCLUSION OF TH He ABOVE cree NOTICE. THIS SOFTWARE OR ANY OTHER 
:@ COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


o 
e 
* 
® 
* 
* 
® 
* 
J 
ie TRANSFERRED. * 
a 
+ 
® 
® 
* 
® 
+ 
® 
* 
® 


Seeesress 


ee ee ee ee ee ee eee ee ee eee 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
.? Compokat iin. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
7@ 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


leeeeeeteereteeteeeteeteeeeeeeeeeeetettereeeeeeetenteneeeteeeteneeteneeetene 
' 


SSossoooooooeSoSSSSS 


oooooocoo°0oo 
AWAAAAAWAIPIPIPIPONININPININID 2 A So OO Oo es 


AOE UN —O OBNAU EWN" OOONOUE YN oO 


0 'ee 
. Facility: VAX/VMS Analyze Facility, Handle Report Output 
0 i Abstract: This module is responsible for generating report 1 
0 : for ANALYZE/OBJECT and ANALYZE/IMAGE. It provides t 
0 ; capability to create report files and fill them with 
00 : output Lines. 

0037 : 

0038 ¢ ; 
0039 ' Environment: 

0040 : 

oot: Author: Paul C. Anagnostopoulos, Creation Date: 8 January 1981 
O98 : Modified By: 

045 i V03-005 0GB0067 Donald G. Blair 03-Jul-1984 
ones ; Support the /NOOUTPUT qualifier. 

0048 : v03-004 DGB0053 Donald G. Blair 10-May-1984 
0049 ' When an error occurs, save the error status so 

Beee we can return it correctly at image exit. 

005 : v03-003 PCA1011 Paul C. Anagnostopoulos 1-Apr-1983 
005 : Change the message prefix to ANLOBJ$_ to ensure that 
0054 ; message symbols are unique across alT ANALYZEs. This 
it is necessitated by the new merged message files. 
0057 ! 


v03-002 PCA0021 Paul Anagnostopoulos 24-Mar-1982 


OBJEXEOUT = Handle Report Output 


oO 
0061 1 
0062 1 


v03=-001 pean Paul Ana 
Don't constrain report f 


14.8 -1984 
1h=Sep-1986 


Cy peg 


47:38:32 Yana rzssee Soe JeMeOuT 082; 1 


Signal errors using the correct STV values. 


22-Mar-1982 


le Lines to 132 characters. 


Page 


2 


(1) 


rw 


-_ 
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@ 
Module Declarations 1-300=138% 93:38:32 ot. Bliss-32 v4.0-74 Page 


9-19 ANAL YZ. SRC JOBJEXEOUT.B32; 1 


3 Tsbttl "Module Declarations’ 
5 ; Libraries and Requires: 
Library ‘starlet’; 
7 require ‘objexereq'; 
' 
0 


; Table of Contents: 


forward routine 
an\$prepare_report_file: novalue, 
an\$report_page: novalue, 
an\$report_Line: novalue, 
anl$exit_with status: novalue, 
ani$tformat_line: novalue, 
an\$format_error: novalue, 
an\$error_ count: novalue, 
anl$format_hex: novalue, 
anl$format_flags: novalue, 
anl$format_data_type: novalue, 
anl$format_mask: novalue, 
anl$format protection: novalue, 
an\$format_severity: novalue, 
anl$interact; 


' 
External References: 


external routine 
cli$get_value: addressing_mode(general), 
hieatee input: addressing_mode(general), 
Lib$(p_Tines: addressing mode(general), 
cli$present: addressing_mode(general), 
str$trim: addressing_mode(general); 


Wall ealeal al valval al al ah ah sh dh Ah Ah Ab Ah Ab Ab AL AL AL AL AL AL AL AL AL AL AL Ah Ah ah ah Ak An 
AAAI IPP PP PoPPPoneny 2 upon ee 
MEUM $0 OOBNO VEWNR “CO OOWOvswnr—co 
Ll ll ll el el el al el el ll lt ll ll lt lt lt ll lt lt lt ls ls 


SOOSOSOCOSCOCCOCOOCSOCOCOCOCOCOCCOOSO SOOO OCOCOOOOOOCOO OOOO OoOOoOO 


36 1 

37 1 external 

H | anl$gb_interactive: byte; 

40 1! : 

41 1 ! Global Variables 

$s 1% 

43 1 

44 1 global ; : : 

45 1 an\$worst_error: | ! This contains either success status, or 
546 1 initial(anlobj$_ok); ! if errors occur it contains the first error 
547 1 ! of the worst severity that occurred, 
re : ' This status is returned at image exit. 
550 1! : 

223 : ; Own Variables: 
334 1 ! The following data structures are needed to create and print to the 
554 1! report file. They include the FAB and RAB, and a buffer for the report 


: 


ahah ah hl 
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BNA NE tee 
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uw 
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ak ee a ee ee ee ee oe ee ae 
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JEXEOUT - he As rt Output 1S-s6 “19 Ax-11 Bliss-32 V4.0-7 
le Seclaret on ee Fae 4-8 73 3: 4 ANAL YZ. SRC OB JEXEOUT.B 2;1 
! spec. 
Own 


own _described_buffer(report spec ,nam$c_maxrss), 


report fab: a. -ANL", 
=put 

fna=report spec+8, 

fns=nam$c_faxrss, 


fop=sqo, 
org=seq, 
rat=cr, 
rfm=var), 
report_rab: S$rab(fab=report_fab, 
rac=seq); 
! The following variables are needed to format the report. 
nef ti t 
nerating repor 
} acing described buf fer(input_file_spec,nam$c_maxrss), 


report Ma sty msg: long, 
age. number : 
ine_counter: sioned long; 


! We also need to keep track of how many errors were reported. 


own : 
error count: long initial(0); 


rw om 


8 
JEXEOuT OBJEXEOUT = Handle Report Output 1Sese $1984 23:36:57 AX-11 Bliss-32 V4.0-74 
ivee tite AN SPREPARE REPORT F 1 gE - Prepere Report File 1e-Sep-19 ~ $7 :88:32 LANALYZ.SRCJOBJEXEOUT .B 231 
; 5 Bsbttl *ANLSPREPARE_REPORT_FILE = Prepare Report File‘ 


Functional Description: 
This routine is called whenever we begin the analysis of a new 


file. It sets up a report file to receive the analysis. 


91 ! Formal Parameters: 

3g output _ spec The report file spec as specified by the user. 

59 This is used on the first call to create the file. 
input spec The spec of the input file we are analyzing. 
heading_msg An optional message code specifying the report 


page heading. 


global data 


! Implicit Outputs: 
global data 


Returned Value: 
none 


! Side Effects: 


i 
i 
i 
' 
i 
' 
i 
i 
i 
' 
Implicit Inputs: 
i 
i 
' 
i 
i 
i 
i 
i 
' 
ie 


SRLSARPANVHSSSLEAE 


PEPE AA AA AAAI PPIPORDNNMNMYMPYPYINIPIAMINIMINIANIAYD a ts 8 ot tt 
. . 


global routine ani$prepare_report_file(output_spec,input_spec,heading_msg): novalue = begin 


bind 
output _spec_dsc = ,output_spec: descriptor, 
input _Spec_dsc = .input_spec: descriptor; 


local 
Status: long; 


COON VPwWN—O 


builtin 
nullparameter; 


PIPMOPIPONNY 9 et et et et et a 


! Are we generating a report? 


generating_report = cli$present(describe(*OUTPUT")); 


COnNOVP Un 


! If the report file is not open, then we want to create it and prepare 
! for the report. 


Wrrororn 


a a 8 a ce et a nd ed = ot 


QLESRASLSSSELESEAN SS SSLSAEAN AS SSVSARANASSSISTFSERISSRLFAFLAN 


if (.report_rabCrab$w_isi] eqlu 0) and .generating_report then ( 
!' Save the output file spec as the principal name of the report file. 
ch$copy(.output_spec_dsc pen]. -eutput spec dectptrd. 

_ * © .report_Spec(len],.report_specCptr]); 
str$trim(report_spec,report_spec,report_spec); 


' Now let's create the report file and connect it. 


SESESSSSSSESSESSSSSSSFSSFSSSESSEESSSSSSSESSESESLARAGA 
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KEOUT = Handle rt Outpu 15-Sep-19 AX-11 Bliss-32 V4.0-74 
EERE PARE REPORT. fi E- Franere Report File 15-sep-1944 73 38: He ANALYZ. gre OBJEXEOUT.B52;1 


status = serootesteperepert. te fab 

check (.status, anlobdj cy f -report_spec,.status,.report_fab[fabd$i_stv]); 
status = Sconnect(rab=réport_ rab); 

check (.status, .status); 


z8 


! Now let’s save the report heading message and the input file spec for 
ia subheading. 


csoer™ heading_msg = shoes’ ste "89; 
. t Vile. specLien) = ~$pec -dscC len]; iets’: 
C coby inpu spec input spec_dsc(ptr 
i om rizcl tlend sin e -Tnput_file “spec(ptr); 
! Now reset the page counter and start a new page. 
page. number = 0; 
$report "conti 


return; 
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—s 


end; 


-TITLE OBJEXEOUT OBJEXEOUT = Handle Report Output 
-IDENT \v04-000\ 


-PSECT SPLITS,NOWRT ,.NOEXE,2 


4C 4E 41 2€ 45 SA 59 4C 41 GE 41 QO000 P.AAA: .ASCII \ANAL VEE ANL\ 
54 55 50 54 55 4F QOO0B P.AAC: .ASCII \OUTPUT\ 
00011 -—BLKB 3 
00000006 00014 P.AAB: .LONG 6 
00000000* 00018 ADDRESS P.AAC 


-PSECT SOWNS,NOEXE,2 
OOOOOOFF 00000 REPORT _SPEC: 


LON 
00000000" 00004 “ADDRESS “aePORT. SPEC+8 
00008 “BLKB 
00107 ‘Bika 
03 00108 REPORT FAB: : 
50 00109 “BYTE 80 
9000 00104 “WORD 0 
00000040 0010¢ “LONG 64 
90000000 90116 “LONG = C 
00000000 00114 LONG 0 
00000000 00118 “LONG §0 
0000 0011C “WORD 0 
01 OOT1E ‘BYTE 1 
00 90itt “BYTE 
00000000 00120 “LONG 
4 00124 BYTE 
0 00125 "BYTE 0 
02 00126 qo Fee 


eet" 


min 


OuT = Handle 
EPARE _REPORT 


it 


ort Output 19-Sep-1984 $3:3$:35 AX-11 Bliss<-32 v4.0-74 
— - Prepare Report File 14-Sep-1984 11:52:52 ANAL YZ.SRC JOBJEXEOUT.852;1 
127 BYTE 
00 + 8 ~ LONG 
38 01 «LONG 
0 01 LONG 
000000° 1 [ADDRESS REPORT_SPEC+8 
000000° 1 ADDRESS P.AAA 
FF 015¢ ert -1 
8 0150 .BYT 11 
98 01 WORD 
00000000 0014 LONG 
00 0144 ~ WORD 
p166 BYTE 
014 BYTE 
00000 0148 -LONG QO 
0000000 0014¢ -LONG 0 
0000 00150 .WORD 
+ OI -BYTE 
015 -—BYTE OQ 
00000000 00154 .LONG QO 
01 00158 REPORT _RAB: | , 
.BY 
44 00159 BYTE 68 
0000 0015A «WORD 0 
00000000 B31 36 LONG 0 
00000000 00160 LONG 0 
00000000 00164 -LONG 0 
00004 00168 -WORD O(3) 
0000 0016E «WORD 0 
00000000 00170 -LONG 0 
0000 00174 «WORD 0 
00 00176 BYTE 0 
00 00177 BYTE 0 
0000 00178 «WORD 0 
0000 OO17A «WORD 0 
00000000 0017¢ LONG 0 
00000000 00180 LONG 0 
00000000 at LONG 0 
00000000 00188 LONG 0 
00 0018C BYTE 0 
00 0018D -BYTE 0 
00 018E BYTE 0 
00 0018F -BYTE 0O 
00000000 00190 -LONG 0 
0000000° Bb -ADDRESS REPORT_FAB 
000000 0198 .LON 0 
0019C GENERATING ~ ‘eet 
OOOOOOFF OO1A0 ne FAS SOeet ae 
00000000* 001A4 - ADDRESS JWPUT_FILE SPEC +8 
.BLKB 255 


O1A8 
O2A7 -BLKB 1 
O2A8 REPORT HEAD ING_MSG: 
002aC PAGE NUMBER: | 
002B0 LINE_COUNTER: 


5 


? 
(3) 


eit 


RNS 


JEXEOUT = Handle Re 
PREPARE_REPORT_F I 


a 


ort Output 


E = Prepare Report File 1425 


15-3 9 
Sep 
Sep 
-BLKB 

00000000 00284 ERROR_COUNT: 
- LONG 


-PSECT 


00000000G 00000 ANLSWORST_ERROR:: 
. CONG 


or}9be 91:85; 


; AX-11 wits -32 v4.0-7 
4 

0 

SGLOBALS$,NOEXE,2 


ANLOBJ$_OK 


ANLOBJ$_0K ANLOBJS_ ANYTHING 
ANLOBJ$~ DATATYPE 


ISDCOUNT 
ISDFLAGS 
ISDGBLNAM 
1 SDNUM 


ANL OBJ $_ERRORNONE 
ANLOBJ$_ERRORS, ANLOBJS_EXEFIXA 
— OBJ$_EXEF IXAIMAGE 
ANLOBJS_EXEF IXALINE 
ANLOBJS$_EXEF IXCOUNT 
ANLOBJS_EXEFIXEXTRA 
ANLOBJ$_EXEFIXF IXED 
ANLOBJS$_EXEF IXFLAGS 
ANLOBJ$_EXEFIXG 
ANLOBJ$_EXEF IXGIMAGE 
ANLOBJ$_ mpage pnt ae 
ANLOBJ$_EXEFIXLIST 
ANLOBJ$_EXEF IXNAME 
ANLOBJ$_EXEF I XNAMEO 
ANLOBJ$_EXEFIXP 
ANLOBJ$_ + 
ANLOBJS_EXEF IXU 
ANLOBJ$— ~EXEF TXUP 
ANLOBJ$_EXEGST, ANLOB EXEHDR 
ANLOBJ$_EXEHDRACT 
ANLOBJ$_ E XEHDRBLKCOUNT 
ANLOBJ$_EXEHDRCHANCOUNT 
ANLOBJ$_EXEHDRCHANDEF 
ANLOBJ$_ opuceonent 
ANLOBJ$_EXEHD 
ANLOBJ$_EXEHD ADSI 
ANLOBJ$_EXEHDRF ILE ID 
ANLOBJ$— bed pe) 
ANLOBJ$_EXEHDRF LAGS 
ANLOBJ$_ “EXEHORGBL IDENT 
ANLOBJ$_EXEHD 
ANLOBJ$_EXEHD RIDEN 
ANLOBJ$_EXEH RIMAGE 1D 
ANLOBJ$_EXEHDRISD 
ANLOBJ$_EXEHDRI SDBASE 
$"EXE 
$"EXE 
BJS-EXE 
$"EXE 
$"EXE 
$"EXE 
$"EXE 
$"EXE 
$"EXE 
S"EXE 


ZrrITIITITIEII ITT 
SSSSSSSS555555 
DwDwDwDwDWADADAzAD 

= 


ANLOBJ 


? 
2 ANALYZ. SRC] OBJEXEOUT. 3 231 


Page 
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v04-000 ANLSPREPARE REPORT _FILE = Prepare Report File 14-Sep-1984 11:52:52 ANALYZ. SRC JOBJEXEOUT .852;1 
-EXTRN ANLOBJ$_EXEHDRNAME 
-EXTRN ANLOBJS_EXEHDRNOPATCH 
-EXTRN ANLOBJS_EXEHDRPAGE COUNT 
-EXTRN ANLOBJS$_EXEHDRPAGEDEF 
~EXTRN ANLOBJS$S_EXEHDRPATCH 
-EXTRN ANLOBJ$~ wf tt ht 
-EXTRN ANLOBJ$_EXEHDRPRIV 
-EXTRN ANLOBJS$— ~EXEHDRROPATCH 
«EXTRN ANLOBJ$_EXEHDRRWPATCH 
-EXTRN ANLOBJS_EXEHDRSYMDBG 
-EXTRN ANLOBJ$—  EXEHDRSYSVER 
-EXTRN ANLOBJS$— op EON TERI veN 
-EXTRN ANLOBJS_EXEHDRT IME 
-EXTRN ANLOBJ$_EXEHDRTYPEEXE 
«EXTRN ANLOBJS$_EXEHDRTYPELIM 
-EXTRN ANLOBJ$_EXEHDRUSERECO 
-EXTRN ANLOBJS_EXEHDRXFER1 
-EXTRN ANLOBJS_EXEHDRXFER2 
«EXTRN ANLOBJS_EXEHDRXFERS 


-EXTRN ANLOBJ$~EXEHEAD ING 

TEXTRN ANLOBJ$"EXEPATCH 

TEXTRN ANLOBJ$~FLAG ANL OBS HEXDATA 
-EXTRN ANLOBJ$~HEXHE AD 

“EXTRN ANLOBJ$~ “HEXHEADING2 

“EXTRN ANLOBUJ$~INDMSGSEC 

“EXTRN ANLOBUJ$~ INTERACT 

ZEXTRN ANLOBJ$"MASK, ANLOBJ$_OBJCPRREC 
-EXTRN ANLOBJ$~OBJDBGRE 

“EXTRN ANLOBJS~ “OBJENY ANLOBJ$_OBJEOMFLAGS 
“EXTRN ANLOBJ$~OBJEOMREC 

“EXTRN ANLOBJS~ ~OBJEOMSEVABT 

-EXTRN ANLOBJ$~OBJEOMSEVERR 

-EXTRN ANLOBJ$~OBJEOMSEVIGN 

-EXTRN ANLOBJ$~OBJEOMSEVRES 

-EXTRN ANLOBJ$~OBJEOMSEVSUC 

-EXTRN ANLOBJ$~OBJEOMSE VWRN 

-EXTRN ANLOBJ$~OBJEOMWREC 

"EXTRN ANLOBJ$~ =OBJF ADPASSME CH 

[EXTRN ANLOBJ$~OBJGSDENV 

"EXTRN ANLOBJ$S~ ~OBJESDENVFLAGS 

-EXTRN ANLOBJ$~OBJGSDENVPAR 

"EXTRN ANLOBJ$S~ “OB ¢SbE 
“EXTRN ANLOBJ$~OBJGSDEPMis 
“EXTRN ANLOBJ$~OBJGSDIDC 
ZEXTRN ANLOBJ$~OBJGSDIDCENT 


; B/J$"OBJGSDIDCOBY 
-EXTRN ANLOBJ$~OBJGSDIDCVALA 


: JGSDPSC 
-EXTRN ANLOBJ$~ OB GSDPSCALIGN 


9 
JEXEOUT OBJEXEOQUT = Handle Report Output 18. Sep 3: AXeo11 Bi iss -32 vé.0 
you ANLSPREPARE REPORT FILE = Prepare Report File la-keo-19ne Vtissies — FaMaty2 saeSoaseveour 6 2:1 


«EXTRN ANLOBJ$_OBJGSDPSCALLOC 
eEXTRN AN OBJ$~ ~pareceeathe SE 


-EXTRN ANLOBJ$_OBJMHDRECSIZ 
-EXTRN ANLOBJ$~OBJMHDSTRLVL 
-EXTRN ANLOBJS$_OBJMHDVERSIO 
-EXTRN ANLOBJS_ ~OBIMTCINPUT. 


. UIC 
-EXTRN ANLOBJS$_ “ren 
-EXTRN ANLOBJ$_OBJMTCWHEN 
-EXTRN ANLOBJ$~OBJPROARGCOUNT 
-EXTRN ANLCBJ$_OBJPROARGNUM 


° SRCREC 
-EXTRN ANLOBJ$_OBJSTATHEADING! 
-EXTRN ANLOBJ$~OBJSTATHEADING2 
-EXTRN ANLOBJ$_OBJSTATLINE 
-EXTRN ANLOBJS_ wn yt Hab gle 


-OBJUVALUE 


TRN ANLOBJ$~BADSYMCHAR 


ist 


OBJEXEOQUT = Handle 
ANL SPREPARE REPORT 


rit 


ort Output 
— = Prepare Report File 


01FC 00000 


“198 


a 49:58:52 


AX-11 Bliss-32 V4.0-74 
ANALYZ.SRC JOBJEXEOUT .852;1 


ANLOBJ$_BADSYMLEN 
An. O83 Bind beste 


OBJ$_EXEBADF IXUPISD 
ANLOBJ$_ Buttapiiont 
ANLOBJ$_EXEBADISDS1 
ANLOBJ$_EXEBA paatew 
ANLOBJ$—EXEBADMATCH 
ANLOBJ$~ “ENEBADPATCHLEN 
ANLOBJ$_EXEBADOBJ 
ANLOBJS_EXEBADTYPE 
ANLOBJ$_EXEBADXFERO 
ANLOBJ$_EXEHDRISDLONG 
ANLOBJ$_EXEHDRLONG 
ANLOBJ$— EXE I SDLENDZRO 
ANLOBJ$_EXE ISDLENGBL 
ANLOBJ$—EXEISDLENPRIV 
ANLOBJ$_EXENOTNATIVE 
ANLOBJS$_ pee 
ANLOBJ$_FIELDFIT 
ANLOBJ$_FLAGER 


ROR 
ANLOBJ$— on cake ne OBJBADIDCMATCH 


ANLOBJ$_ aay edt st 
ANLOBJ$~OBJEOMBADSEV 
ANLOBJ$_ OBJEOMMI S$ ING 
ANLOBJ$_OBJF ADBADAVC 
ANLOBJ$_OBJF ADBADRBC 
ANLOBJ$~OBJGSDBADAL IGN 
ANLOBJ$_ wn tet +77 Saeed 
ANLOBJ$_0 RRES 
ANLOBJ$— ~OBJMHDBADRECS1Z 
ANLOBJ$_ “pe ureniecing 
ANLOBJ$_OBJMHDMISSING 
ANLOBJ$— “a 


ANLOBJ$_ OBIRECTOOBIG 
ANLOBJ$_OBJTIRRES 

ANLOBJ$— ~OBJUNDEF ENV 
ANLOBJ$_OBJUNDEFLIT 

ANLOBJ$~ OBJUNDEF PSC 
ANALYZES FACILITY 

CLISGET VALUES LIBSGET_INPUT 
LIBSLP_CINES, CLISPRESENT 
STRSTRIM, ANL$GB INTERACTIVE 
SYSSCREATE, SYSSTONNECT 


SCODES ,NOWRT ,2 


vat Vi pment na Save R2,R3,R4,R5,- 


. ° 


0612 


£ dis 
OBJEXEOUT JEXEOUT = Handle Report Output 15-Sep 3: 7 Ax-11 Bliss-32 v4.0-74 Page 12 
areetty Rie PREPARE _REPORT_FILE = Prepare Report File  14-Sep Be fi 38: 3 ANALYZ.SRC JOBJEXEOUT .852;1 . (3) 
: 000000006 00 YE $008 MOVAB £1955 16a, : 
0000' cF 9 00 MOVAB REPORT_SPEC, " : 
2 toe” ee og MOVL OU TeUTa SPEC, R2 3 0615 
6 AC 0 001 VL INPUT _SPEC, R6 3 061 
0000" CF 9F 00016 PUSHAB P.AAB™ : 062 
000000006 09 BS OO1A CALLS #1, CLISPRESEN : 
019c «CC 0 pO 00021 MOVL RO, GENERAT NG REPORT : 
015A c7 5 999 6 TSTW REPOR B+ + 0632 
4 ig OO2A BNEQ 2 3 
GF 019C ¢7 ; 0002C BLBC GENERATING REPORT. 2$ 3 
67 20 06 B2 62 2C 00031 MOVCS R2) P Pai REPORT_SPEC, = ; 0637 
04 e7 0003? aneront SPECS : 
7 DD 00039 PUSHL 3 0638 
57 DD 00038 PUSHL Rf : 
57 DD 00030 PUSHL R7 : 
000000006 00 C3 FB 0003F CALLS #3 STRSTRIM : 
0108 C7? 9F 00046 PUSHAB REPORT AB + 0642 
000000006 00 01 FB O004A CALLS SYSSCREATE : 
>¢ 50 pO 00051 MOVL RO STATUS : 
1 ¢ E8 00054 BLBS STATUS, 8 3 0643 
0114 C7? DD 00057 PUSHL REPORT FAB+12 : 
52 DD 00058 PUSHL STATUS : 
57 DD 0005D PUSHL : 
01 DD 0005F PUSHL #1 : 
00B110A4 8F DD 00061 PUSHL  #11604132 : 
68 05 FB 00067 CALLS #5, L1B$S1GNAL : 
0158 C7 9F OOD6A 1$: PUSHAB REPORT 3 0644 
000000006 00 01 FB O006E CALLS #1, SYSSCONNECT ; 
52 50 pO 00075 MOVL 0, STATUS : 
05 52 €8 00078 BLBS STATUS, 33 3 0645 
52 DD 00078 PUSHL STATUS : 
68 01 FB 0007D CALLS #1, LIBSSIGN : 
O2aA8 (7 OC AC DO 00080 2$: MOVL HEADING _MSG, “RepoR HE AD ING_MSG : 0651 
O1A0 = C7 66 BO 00086 MOV (R6), [eur SF ILE_SP 3 0652 
O1A0 «C7 20 04 «86 66 2¢ 00088 MOVCS (R6), a4(R6S, #2, INPUT_FILE_SPEC, = 3 0654 
O1A6 oO? 00093 @INPUT ate: _SPE ; 
O2AC C7 D4 00096 CLRL PAGE _NOMBER™ ; 0658 
0000v CF 00 FB 0009A CALLS 40, INL SREPORT _PAGE : 0659 
04 0009F RET : 0663 


; Routine Size: 160 bytes, Routine Base: $CODE$ + 0000 


9 
op exe out rag ts} oH = Handle Report Outpu 15-sep-1984 $3:88:2 


put AX=11 Bliss<32 V4.0-74 Pp 
EPORT_PAGE = Eject Page in Report 14-Sep-19 7332;1 ripe 


7 
2 ANAL YZ.SRC JOBJEXEOUT 


$ $0¢: : Zsbttl “ANLSREPORT_PAGE = Eject Page in Report’ 
‘ee 
bebe 1! Functional Description: ; 
5 7 This routine is called to eject the page in a report and print 
B68 : the heading on the new page. 
8 y 1 ! Formal Parameters: 
9 7y Vf none 
40 Bore gf 
4) 75 1°! Implicit Inputs: 
4 0674 1! global data 
4 Bor? ; } 
4G a | 1! Implicit Outputs: 
45 0677 1! global data 
see 0678 1! 
47 0679 1 ! Returned Value: 
248 0680 1! none 
49 0681 1: 
50 Rone 1! Side Effects: 
51 06835 1! 
$26 0684 1 '=- 
5 0685 1 
$2¢ 0686 1 
55 0687 2 global routine ani$report_page: novalue = begin 
256 0688 
257 0689 : 
$28 pony ! Since we are starting a new page, reset the Line counter. 
soe +83 Line_counter = Lib$ip_lines() = 7; 
$eg 0694 ; ! If this is an interactive session, don't print any page headings. 
26 0695 ' They will really annoy the poor guy. 
264 0696 2 : ; 
265 0697 if .anl$gb_interactive then 
266 0698 return; 
267 0699 
268 0700 2 ! Eject the page. 
269 0701 2 : 
$0 000 § anl$report_line(-1,describe(%char(formfeed))); 
$ig Orbe § ! Increment the page number for the new page and print the heading Lines. 
274 0706 increment (page number) ; é 
154 0707 anl$format_lineT-1,0,.report_heading_msg,0,.page_number) ; 
76 0708 anl\$format_Line(-1,0,anlobj$_anything, input_file_spec); 
277 0709 2 anl$report_line(-1); 
278 0710 2 anl$report_line(-1); 
279 0711 2 
280 orig 2 return; 
281 071 6 
282 0714 end; 


-PSECT SPLITS,NOWRT,.NOEXE,2 
OC OQOOOI1C P.AAE: .ASCII <12> F 


JEXEOQUT 2 XEOUT = Handle Report Output 1.525419 4 23: Ax-11 Bh ise -32 v4.0 f 14 
vous000 i 93:88:82 ” 


EPORT_PAGE = Eject Page in Report 14-Sep-1984 ANALYZ. SRC} OB JEXE OUT. ° 2:1 (4) 
-BLKB ; 
9990000) 90928 P.AAD: .LONG ; : 
0000000* 00024 ADDRESS P.AAE : 
-PSECT S$CODES,NOWRT,2 

000C 00000 ENTRY ANLSREPORT PAGE. Save R2,R3 3 0687 

53 gooey CF 9E C000 MOVAB a RE rORT LIN 3 

$2 0000 CF 9E 0000 MOVAB ? 3 
000000006 + 00 FB B00 CALLS #0, “Siet NES ; 0692 

06 «OA f9 ~=6Ad 4 00 MOVA (R tine ec COUNTER : 
30 00006 CF 3 601 BLBS ANL$GB_. IN NTERACTIVE, 1$ 3; 0697 
0000" CF F 00010 PUSHAB P,AAD ; 0702 

7 01 CE 00021 MNEGL ai, -(SP i 

6 0g FB 00024 CALLS #2, ANL REPORT _LINE : 
62 06 00027 INCL PAGE _NUMBER 3: 0706 
ge DD 00029 PUSHL PAGE-NUMBER 3 0707 

—E D4 Banse CLRL -(SPY : 

FC A2 DD 0002D PUSHL REPORT_HEADING_MSG 3 

7E D4 00030 CLRL -(SP) : 

7E 01 CE 0003 MNE GL #i, (SP) : 

0000v CF 05 FB 0003 CALLS #5. ANLSFORMAT_LINE : 
FEF4 C2 QF OOO3A PUSHAB INPUT FILE SPEC 3 0708 

000000006 8F DD 0003€ PUSHL BANL BJS _ ANYTHING : 

7E D4 00044 CLAL -(SP) 3 

7E 01 CE 00046 MNE GL #1, -(SP) : 

0000v CF 04 FB 00049 CALLS #4, ANLSFORMAT_LINE : 
7 01 CE O0004E MNEGL #1, =(SP) : 0709 

6 01 FB 00051 CALLS §#i, ANL SREPORT _LINE a 

7E 01 CE 00054 MNEGL #1, (SP) ; 0710 

63 01 8B 00057 CALLS #1, ANLSREPORT_LINE 3 
04 QO0SA 1$: RET ; 0714 


i 
! 


3 Routine Size: 91 bytes, Routine Base: S$CODE$S + OO0A0 


~n™ 
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9 
ope regu OBJEXEOUT = Handie Report Output 15-sep-1984 99:29:32 AX-11 Bliss<32 V4.0-74 
ANLSREPORT_LINE = Print @ Line in Report 14-Sep-1984 11:52:52 ANAL YZ. SRC JOBJEXEOUT .852;1 


ay Bsbttl "ANLSREPORT_LINE = Print a Line in Report’ 
‘ee 
+18 ! Functional Description: 
m8 This routine is called to print a Line into the report file. 
7 i Formal Parameters: 
721 : widow control Controls widowing as follows: 
7 § : sitive specifies number of Lines that 
7 : must remain on the page. _ 
726 , zero doesn't matter how many lines. 
725 : 3 negative Force Line onto current page. 
4 ° } Line Address of descriptor of Line. Optional. 
728 i‘ Implicit Inputs: 
: } global data 
731 i Implicit Outputs: 
4 ; } global data 
7 i Returned Value: 
4 5 none 
3 i Side Effects: 
738 : 
739 lee 
re 
mee global routine ani$report_line(widow_control,iine): novalue = begin 
744 bind 
mt? Line_dsc = .line: descriptor; 
747 local 


~~ 
= 
@ 


Status: long; 
builtin 
nullparameter; 
! Don't do anything if we're not generating a report. 


if not .generating_report then 
return; 


: If the caller isn’t forcing this Line onto the page, and there are not 
! enough tines left for prevention of widowing, then eject the page. 


WN — 0 COW UF wn—-o”0 


if (.widow control geq 0) and 
(,line_counter lss .widow control) then 
ani$report_page(); 


! Print the Line if there is one. Otherwise put out a blank Line. 


if nullparameter(2) then 
report _rablrab$w_rsz] 


0 


report_rab[rab$w_rsz) = .line_dscllen]; 


else ( 


AAP PIPPORERUPOPONIROPUPUPIPEPUPOPIPIPIPOAN PIPPI a a a nt a tk nk kn es 


SOOSOCOCOCOCOSCOCCOOSCOOSOCOOSOOSOCOCOOCOCOCOO OOOO OOOOCOOO 
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9 
JExEOUT OBJEXEOUT = Handle Report Output 13-se “19 3:36:57 AX-11 Bliss-32 V4.0-74 e 16 
yoe-000 ANLSREPORT_LINE = Print a Line in Report 1enseb-1 986 $7:38:35 LANALYZ. SRE OBJEXEOUT .852;1 — (5) 
1 a report_rab(rab$i_rbf)] = .Line_dscCptr]; 
g 774 status = Sput(rab=report_rab); 
2 ut? check (,status, anlobj$_writeerr,1,report_spec,.status,.report_rab(rab$\_stv]); 
$ a ! Account for the Line on the page. 
; 719 decrement (Line _counter); 
0 781 return; 
1 7 ¢ 
2 7? end; 
-EXTRN SYS$PUT 
0004 00000 «ENTRY ANLSREPORT_LINE, Save R2 : 074 
3s 08 AC 00 00002 MOVL L Be 3 074 
0000" CF £9 00006 BLBC = GENERATING_REPORT, 6$ : 0756 
06 aC 05 00008 TSTL WIDOW_ CONTROL : 0762 
OC 19 OOO0E BLSS 1 3 
06 AC 0000° CF 01 00010 CMPL LINE COUNTER, WIDOW_.ONTROL : 0763 
04 18 00016 BGEQ 1 3 
89s AF 00 FB 60018 CALLS #0, ANLSREPORT_PAGE 3 0764 
02 6C 91 OOOIC 1$: CMPB (AP), #2 ; 0768 
05 1F QOOTF BLSSU ; 
08 AC 05 00021 TSTL (AP) : 
06 12 00024 BNEQ 3 é 
0000" CF B84 00026 2%: CLRW REPORT _RAB* 34 ; 0769 
0B 11 0002A BRB 4$ : 
0000° CF 62 80 sk 3$: MOVW (R2), REPORT _RAB+34 3; 0771 
0000" CF 04 A2 00 00031 VL —- &( R25, REPORT_RAB*40 > 0772 
0000" CF 9F 00037 4$ PUSHAB REPORT RAB ; 0774 
000000006 00 9 4 00038 CALLS #1, SYS$PUT ; 
19 O€ ie BLBS STATUS ; 0775 
0000° CF DD 0004 PUSHL REPORT_RAB+12 3 
50 DD 00049 PUSHL STATUS : 
0000° CF 9F 00048 PUSHAB REPORT_SPEC : 
01 DD 0004F PUSHL #1 : 
00811004 8F DD 00051 PUSHL #11604180 : 
000000006 05 Fe 00057 CALLS) #5, LIBSSIGNAL : 
0000* CF Db? OOOSE 5$: DECL LINE_COUNTER ; 0779 
04 00062 68: RET ; 0783 


3 Routine Size: 99 bytes, Routine Base: SCODES + OOFB 


74 Page 17 
ANAL YZ .SRC JOBJEXEOUT .852;1 (6) 


“= 
55 
Ps 


k 9 
GEDA SR NPA mepore | MCRRSMGL PEMRGAS sl Pusat 


r ; } Bsbtel *ANLSFORMAT_LINE = Format Line for Report’ 
7 1! Functional Description: 
7 7 | This routine is called to format a Line and print it in the 
A } } report file. 
7 1 ! Formal Parameters: 
791 1! widow control The number of Lines that must be remaining on the 
238 7? current page. 
795 1! indent. level The number of tab stops to indent the Line. 
ae: : temp ate_msg the status code of the message defining the Line 
; ate. 
7? faol... $F AD arguments to fill in the template. 
8 ne x 
: Jmplicit uts: 
+99 es global data 
600 1! 
801 1 ! Implicit Outputs: 
ans = global data 
0805 1! 
0806 1 ! Returned Value: 
0805 1! none 
et 1! 
0807 1 ! Side Effects: 
0808 1! 
0809 1 !-- 
0810 1 
0811 1 
4 2 global routine ani$format_line(widow_control,indent_level,template_msg,faol): novalue = begin 
0814 local 
0815 status: long; 
0816 
0817 : 
ths ! First we obtain the text of the template message. 
90 0820 begin 
91 0851 local : 
, b85¢ Local_described_buffer(template_buf,132); 
94 7 0834 status = $getmsg(msgid=.template_msg, 
$3 P 0825 msglen=template_buf, 
96 P 08 $ bufadr=template_buf, 
97 3 flags=%b°0001"); 
98 828 check (,status,.status); 
99 +434 
rt} tt} ; ! Now we can plug the $FAO arguments into the message template. 
40 eth) 4 begin 
40 0833 4 local E 
404 0834 4 local_described_buffer(result_buf,132); 
405 0835 4 
406 P 0836 4 status = $faol(ctrstr=template_buf, 
407 P ett 4 outlen=result_buf, 
408 P 0838 4 outbuf=result_buf, 
409 0839 4 prmist=faol); 
410 0840 4 check (.status,.status); 


(al ee ee ee ee ee ek et et ee et et ot ee ot ee a) 
ROPORIRIPOPERPEDY SS St 
NOPE AN OO OBNOUNE 


Se Ge Se Ge Se Se Ge Se Ge Se Oe Ss Ge OH Se SH Oe 


Op Jt ne Out peng te ted = Handle Report Output 1S-sep-1984 33:38:32 AN-11 Bliss-32 v4.0-74 


MAT _LINE + Format Line for Report 14-Sep-19 ANALYZ.SRC JOBJEXEOUT .852;1 
4 
; 2 ! Prefix the resulting text with enough tabs to effect the indentation. 
4 & ch$move(.resul abufl len}, .res + t puter. -fesult_bufl(ptrJ+. indent_level); 
§ 4 result_bufllen] = .result _buf evel 
$ ? ch$filT(ichar(tabd), . indent pg be ee hey “but ptr j; 
0 re ? ! Print the Line, passing along the widow control number. 
636 4 ani$report_line(. widow control,result_buf); 
B88 3 sna; 
te} 
0855 return; 
9 
85 end; 
-EXTRN SYSSGETMSG, SYSSFAOL 
007C 00000 ENTRY wats tones LINE, Save Re, R3,R4,R5,R6 
56 000000006 00 9€ 0000 MOVAB ieee R6 
5E FEES CE 9€ 000 MOVAB P 
FF74 CD 3 8F 9A OOODE MOV7BL #132, TEMPLA 1§-°4 
FF78 co FF7C CD YE 00014 MOVAB TEMPLATE BUF + VEMPLATE BUF #4 
7E 01 7D 00018 mMOVa #i, =(SPY 
FF74 CD OF OOOIE PUSHAB TEMPLATE BUF 
FF74 CD OF Boog PUSHAB haat “BUF 
oc AC DD 00026 PUSHL Ha tt “MSG 
000000006 99 05 FB 00029 CALLS SYSSGETMSG 
2 50 p00 000 MOVL RO, Tus 
05 2§ EB 0003 BLBS US, "3 
5 00 PUSHL T 
66 01 FB 00038 CALLS #1 me 
6€ 84 BF 9A 00038 18: MOV2BL #182, RESUL 
04 AE 08 AE 9E 0003F MOVAB RESULT iat PRESULT BUF +4 
10 AC 9F 00044 PUSHAB FAQl 
04 AE 9F 00047 PUSHAB RESULT BUF 
08 AE 9F OOO4A PUSHAB RESULT” BUF 
FF74 CD 9F 00040 PUSHAB TEMPLATE BUF 
000000006 00 04 FB 00051 CALLS #4, SYSSFAOL 
3g 50 4 00058 MOVL RO. STATUS 
32 £8 00058 BLBS STATUS, 2$ 
5 DD BR82 PUSHL STATUS 
66 01 FB 0006 CALL #1, LIBSSIGNAL 
50 046 «AE 08 aC C1 00063 28% ADDL INDENT -LEVEL RESULT BUF +4, RO 
60 04 BE 6E 28 00069 MOVC3 RESULTBUF, @RESULT BUF +4, (RO) 
6é 08 AC AO 0006 ADDW2  INDENT™LEVEL,  RESUL 
08 Ac 09 6E 06 + 2c if MOVC #0, (SP), @ INDENT= “LEVEL, @RE SULT _BUF #4 
SE DD OOO7A PUSHL 
04 OS DD 0007C PUSHL up0. CONTROL 
fFI19 «CF 02 FB 0007F CALLS @ ANL $REPORT LINE 
04 00084 RET 


0812 


0822 
0827 


; 0828 


0834 
0839 


0840 


0844 


0845 
0846 


0850 


0857 


YOu-000 


3; Routine Size: 


OBJEXEOUT = Handle Report Out 
ANLSFORMAT LINE = Format Line 


133 bytes, Routine Base: 


t 
"Tee Report 
SCODES + O15E 


15- 


ihe 


9 


Se 


=) 
51 


38e 7:88:33 


AxX-11 Blis 
ANAL YZ. SRC 


foa%e 


xEOUT.S 


$251 
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9 
XEOUT = Handle Report Output Sse 1984 23:36:57 AX-11 Bliss-32 V4.0-74 
FORMAT _ERROR = Put Error essage in Report 14 ; 198 $7:38:23 th Ota ioos if 


-Sep- 
Bsbttl *ANLSFORMAT_ERROR = Put Error Message in Report’ 


Functional Description: 
This routine is called to format an error message into the report 


ile. 
! Formal Parameters: 
error_msg sites code for the error message. 
faol... FAO substitution parameters for the message. 


' 
i 
i 
' 
i 
; 
! Implicit Inputs: 
global data 
i Implicit Outputs: 
: global data 
i 
i 
‘ 
i 
' 
ie 


Returned Value: 
none 


' Side Effects: 


global routine anl$format_error(error_msg,faol,fao2,fao3,fao4): novalue = begin 


bind 
flag_string = describe('e*e '‘); 


builtin 
actualcount; 


: We case on the number of SFAO parameters and call ANLSFORMAT_LINE to 
: do the work. In all cases, however, we add our own first parameter, 
! which is the error message flag string. 


ase actualcount() from 1 to 5 of set 
1): ant$format_line(-1,0,.error_msg,flag_string); 
$3: ant $format_line(-1,0,.error_msg,flag_string,.faol); 
}: anl$format_line(-1,0,.error_msg,flag_string,.faol,.fao2); 
4): anl$format_line(-1,0,.error_msg,flag_string,.faol,.fao2,.fao3); 
5]: anl$format_line(-1,0,.error_msg,flag_string,.faol,.fao2d,.faos,.fao4); 


: Keep track of the number of errors reported. Also keep track of 
! most severe error which has occurred. 


increment (error_count); 

if severity level (.error_msg) gtr : 

severity Tevel (.anl$worst_error) ! If higher than watermark 
then anl$worst_error = .error_msg; : then set new worst error 
return; 


end; 


NALYZ.SRC JOBJEXEOUT .852;1 


10 
OBJEXEOUT OBJEXEOUT = Handle Report Output 18-5 ep-1984 $3:28'3 
14-Sep-1984 11:52:5 


AX-11 Bliss- 4.0-74 
v04=-000 ANLSFORMAT_ERROR = Put Error Message in Report OL loasextou — (3) 


7 
:52 ANALYZ.SRCJOBJEXEOUT.B52;1 


-PSECT SPLITS,NOWRT ,NOEXE,2 


20 20 2A 2A 2A 20090 P.AAG: tt \tee \ : 

00000005 00030 P.AAF: <LONG : 

§0000080" 00034 ADDRESS P.AAG : 
FLAG_STRING= P.AAF 


«PSECT S$CODE$,NOWRT,2 


003C 00000 eENTRY woe ry ERROR, Save R2,R3,R4,R5 ; 0882 
55 0000" CF 9€ 0000 MOVAB FLAG_STR R : 
54 FF70 CF 9E 0000 MOVAB ANL FORMAT _LINE, R4 : 
04 i Of bt RF oootd masa TAPS ooh” OB 
0035 0025 0016 000A 00014 1$ WORD -1$,- : 

0048 0001C¢ 3$-1$.- : 
4$-1$.- ; 
5$-1$,- : 
6$-1$ : 

24 BB OOOIE 2$: PUSHR #*M<R2,R5> : 0896 
7E D4 00020 CLRL 3s = (SP) : 
7E 01 CE 00022 MNEGL #1, -(SP) : 
64 04 FB 00025 CALLS #4, ANLSFORMAT_LINE : 
44 11 00028 BRB 7$ : 

08 AC DD 0002A 3$: PUSHL FAO : 0897 
24 BB 0002D PUSHR #*M<R2,R5> : 
7E D4 O002F CLRL = = (SP) : 
7E 01 CE 00031 MNEGL #1, -(SP) : 
64 05 FB 00034 CALLS #5, ANL $F ORMAT_LINE : 
35 11 00037 BRB 7$ ; 

7E 08 AC 7D 00039 4$: MOVQ = FAO1, =(SP) : 0898 
24 BB 0003D PUSHR  #*M<R2,R5> : 
7E D4 0003F CLRL = =( SP) ; 
7E 01 CE 00041 MNEGL #1, -(SP) : 
64 06 FB 00044 CALLS #6. ANLSFORMAT_LINE F 
25 11 00047 BRB ; 

7€ 0c AC 7D 00049 S$: MOVQ _ FAO2, ~=(SP) : 0899 
08 AC DD 90940 PUSHLF ; 
24 BB 00050 PUSHR  #*M<R2,R5> : 
E D4 00052 CLRL = SP) : 
7E 01 CE 00054 MNEGL #1, -(SP) F 
64 07 FB 00057 CALLS #7, ANL$FORMAT_LINE é 
12 11 0005 BRB 7$ ; 

7€ 10 AC 7D 0005C 6$: MOVQ  FAQ3, -(SP) : 0900 
7E 08 AC 7D 00060 MOVO  FAOI. =(SP) : 
24 BB 00064 PUSHR #*M<R2,R5> : 
7E D4 00066 CLRL = (SP) : 
7E 01 CE 00068 MNEGL #1, ; 
64 08 FB 00068 CALLS #8. ANC Sf onMAT _LINE ; 

0000" CF D6 OO06E 7$: INCL. ERROR COUN + 0906 

50 52 DO 00072 MOVL  R2, TMP CODE : 0907 
51 50 03 00 EF 00075 EXT2v #0. Hg “TMP_CODE, ; 


10 
OBJEXKEOUT OBJEXEOUT = Handle Report Output bese -1984 23:36:57 VAK-11 Bliss=-32 V4.0-742 Page 22 
v06-000 ANLSFORMAT_ERROR = Put Error Message in Report 1e-Sep-1986 11:52:52 CANALYZ.SRC JOBJEXEOUT.832;1 . (35 
50 50 01 00 EF OOO7A EXTZ7v #0, #1, TMP_CODE, RO F; 
50 9 C4 0007F MULL #4, RO s 
51 C2 0008 SUBL2 RO. RI F 
51 03 CO 0008 ADDL #3, R1 : 
8 0000" CF pO0 00088 MOVL ~ ve tag ERROR, TMP_CODE ; 0908 
$3 38 00 EF 00080 EXTZ7v #0, #3, TAP_CODE, R3 : 
0 0 1 00 EF 0009 EXTZ2v #0, #1, TMPTCODE., RO : 
9 04 C4 0009 MULL #4, R 3 
28 C2 QO09A SUBL RO, R $ 
50 03 A3 SE 0009D MOVAB 3(R3), RO : 
50 51 D1 000A1 cMPL RT, =O : 
93 15 Bene BLEQ 8$ : 
0000" CF 2 00 OOOA MOVL R2, ANLSWORST_ERROR : 0909 
04 OOOAB 8$: RET 3 0913 


3 Routine Size: 172 bytes, Routine Base: S$CODES + O01E3 
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10 
OBJEXEOUT = Handle Report Output 1b-Se +198 


4 $9:3$:23 pone Bliss-32 v4.0-74 
ANLSERROR_COUNT = Report Count of Errors 14-Sep-1984 11:52:52 ANALYZ.SRC JOBJEXEOUT .B32;1 
p3te } Esbttl "ANLSERROR_COUNT = Report Count of Errors’ 
0916 1 | Functional Description: 
91 1! This routine is called to print a Line telling how many errors 

S318 : were discovered during the analysis. 
09 9 : Formal Parameters: 
09 ‘ 1 
09 1 ! Implicit Inputs: 
2. : : global data 
0926 1 ! Implicit Outputs: 
e 5 } } global data 
09 ; ; Returned Value: 
0931 1! mes 
oar) ; Side Effects: 
0934 1 i-- 
0935 «1 
0936 1 
2444 2 global routine ani$error_count: novalue = begin 
0939 ‘ 
de § ! First we print the error count in the report. 
0942 2 if .error_count eqlu 0 then : 
Beer 2 : anl$format_line(0,0,anlobj$_errornone) 

else 
0945 2 ani $format_line(0,0,anlobj$_errorcount,.error_count); 
0946 2 anl$report_line(0); 
bh 4 $ anl$report_Line(0); 
0949 2! If the report is not going to SYS$SOUTPUT, we also want to display one Line © 
0950 2! for the user at the terminal. This contains the report heading text and 
049 § ! the error count. 
0953 2 if ch$neq(.report spec(len],.report_spec(ptr], 10,uplit byte("SYS$OUTPUT"),* °) then 
Bee § signal (anTobj$_errors,2, input_file_spec,.error_count); 
344 § ! Now we can reset the error counter for the next file. 
Bees 2 error_count = 0; 
944 ; return; 
0962 1 end; 

-PSECT SPLITS,NOWRT,NOEXE,2 
54 55 50 54 55 GF 26 53 59 53 00038 P.AAH: .ASCII \SYSS$OUTPUT\ 


Orr OuT OBJEXEOQUT = Handle Report Output 
ANLSERROR_COUNT = Report Count of Errors 


2? FEC? 
6 0000° 
50 
000000006 
65 
000000006 
65 
9D AS 
9D AS 
OA 20 FD50 = 4 FD4C 
0000° 
FEEC 
000000006 


000000006 60 


“oor NTO VO VNCO AH] "410-90 OOwW 
O7*OW VOMFSWFslwsovo7l-TOorvoma 


o™7oo 
J 


4 
04 


Routine Size: 93 bytes, Routine Base: $CODES + 028F 


= 
oO 


-$ep-1984 
= 8ep-1984 ; 


1$: 


23: 


3$: 
C 


3:36:57 AX-11 Bliss-32 v4.0-7 
1:52:52 ANALYZ. SRC JOBJEXEOUT. 4 2;1 

-PSECT SCODES,NOWRT,2 

ENTRY ANLSERROR CONT. Save R2,R3,R4,R5 

MOVAB ANLSFORMAT_LINE, RS 

MOVAB ERROR_COUNT, st 

MOVL ERROR_COUNT, RO 

BNEQ 1$ 

cUSe oA OBS _ERRORNONE 

CALLS 3, ANLSFORMAT LLINE 

BaB 2$ 

PUSHL RO 

PUSHL #ANLOBJ$_ERRORCOUNT 

CLRO -(SP 

CALLS #4, ANLSFORMAT_LINE 

CLRL -(SP) 

CALLS 1, ANLSREPORT_LINE 

CLAL -(SP) 

CALLS #1, ANLSREPORT_LINE 

CMPC5 = RE PORT. SPEC, @REPORT_SPEC#4, #32, #10, 

BEQL 3$ 

PUSHL ERROR_COUNT 

PUSHAB INPUT_FILE_SPEC 

PUSHL #2 

PUSHL #ANLOBJ$_ERRORS 

CALLS #4, LIBSSIGNAL 

eta ERROR_COUNT 


Page 5) 


0937 


0942 


0943 


0945 


0946 
0947 
0953 


0954 


0958 
0962 


Be Ge Se Oe Oe Se Se Se Se Se Se Se Se Se Se Ss Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se SH Se Se 


JEXEOuT OBJEXEOUT = Handle Report Output -Sep-1 3: AX-11 Bliss-32 V4.0-74 Pa 5 
vith ANLSEXIT_WITH_STATUS = Exit to VMS with a Statu 15-Se0-1984 7 3: 35 ANALYZ.SRC JOBJEXEOUT.852;1 - (33 


2984 ] $s Rsbttl "ANLSEXIT_WITH_ STATUS = Exit to VMS With a Status’ 
8 0365 1 i "‘Fomattonel Description: 
9 Me 1 i his routine is called when it's time to exit back to VMS. We 
40 0967 1: exit with the status in anl$worst_error. sfats contains 
re 0 3 : success status if no errors have Occurred.) 
54 $990 1 ! Formal Parameters: 
544 971 1! non 
545 972 1! : 
546 0975 1°! Implicit Inputs: 
547 0974 1! global data 
548 0975 1! ; 
549 0976 1°! Implicit Outputs: 
550 0977 1! global data 
551 0978 1! 
226 0979 1°! Returned Value: 
55 0980 1! does not return 
554 0981 1! 
555 0982 1! Side Effects: 
556 0983 1! 
557 0984 1 !== 
558 0985 «(1 
559 0986 1 
+44 34 44 $ global routine anl$Sexit_with_status: novalue = begin 
562 0989 2! if it was an interactive session, always return success. otherwise 
563 0990 2 ! return worst error 
564 0991 2 
565 0992 2 if ens interactive then 
566 0995 3 exit (code=anlobj$_ok) 
567 0994 2 else en 
568 0995 2 $exit(code=.ani$worst_error or sts$m_inhib_msg); 
569 0996 2 
570 0997 1 end; 


eEXTRN SYSSEXIT 


0000 00000 -ENTRY ANLSEXIT_WITH_STATUS, Save nothing ; 0987 

08 0000G cF €9 00002 BLBC ANL$GB_INTERATTIVE, 1% : 0992 

00000000G 8F DD 00007 PUSHL #ANLOBJ$_OK 3 0993 
OA 11 00000 BRB 5 

7E 0000" CF 10000000 8F C9 QOOOF 1$ BISL3 9960635656, ANLSWORST_ERROR, -(SP) : 0995 
000000006 00 01 FB 00019 2$ CALLS #1, SYSSEXIT 3 

04 00020 RET : 0997 


; Routine Size: 53 bytes, Routine Base: S$CODE$ + O2EC 


Se Be Se Ge Ge Se Be Oe Ge Se Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se oe 


10 
JExXEOuT OBJEXEOUT = Handle Report Output 1$-se “1984 23:36:57 AX=-11 Bliss-32 V4.0-74 Page 26 
iret ANLSFORMAT_HEX = ferast Hex Dump of Data 1h-8ep-1984 97:38:35 LANALYZ-SRC OBJEXEOUT.852;1 185 
Y : Tsbttl "ANLSFORMAT_HEX = Format Hex Dump of Data’ 
‘ee 

74 1 ! Functional Description: 

75 1001 7! his routine is called to format a hex dump of some bytes. 
37 1908 \ It includes the character representation of the bytes aiso. 

78 1006 1 ' Formal Parameters: 
rt4 1005 1: indent level The indentation level at which to place the dump. 

$i 1908 ; } ata Address of descriptor of data to be dumped. 
S8¢ 1008 1 | Implicit Inputs: 
rt ti 13te ! global data 
eRe 1011 1°! Implicit Outputs: 
on8 ISt¢ : global data 
288 1016 Returned Value: 

none 

590 ig i 
23) aE : Side Effects: 
898 1019 1 i= 
594 1020 1 
595 1021 1 ; 
44] 1956 $ global routine anlt$format_hex(indent_level,data): novalue = begin 
598 1024 2 bind 
599 1025 2 data_dsc = .data: descriptor, 
ony 13st 2 data_vector = .data_dsc(ptr]: vector(,bytel]; 
602 1028 5 local 
603 Oe 2 i: long, 
604 1030 2 arg_list: vector([20,longl], 
as 138 § count: long; 

I 
407 1033 2 builtin 
608 1034 2 calig; 
609 1035 2 
610 1036 2 ; ; < 
213 Ht § ! Jf the data is null, just quit. 
tt + $4 2 if .data_dscClen] eqlu 0 then 

return; 

615 1041 : : ‘ ; : 
616 1042 ! We begin by printing two heading Lines. The first shows the offsets 
ot; Ho § ! of the bytes and the second is a Line of dashes. 
619 1045 2 anl$format_line(3,.indent_level,anlobj$_hexheading!); 
ost 1366 $ anl$format_line(0,.indent_level,anlob)$_hexheading2) ; 
622 1048 2! We will be built ing argument Lists to ANLSFORMAT LINE. It will always 
os? Hr 2 ! include widow control, indentation level, and the message code. 
624 
625 1051 ; arg_list \] = 0; 
626 1926 arg_list ¢ = .indent_level; 
oc? He § arg_list(3) = anlobj$_hexdata; 


# 10 
1 


JExEOuT OBJEKEOUT = Handle Report Output 55-Sep-1984 23:36:57 AxX-11 Bliss-32 V4.0<74 Pp 7? 
irae tie ANL SF ORMAT HEX - Format Hex Dump of Data 14-Sep-1984 $7 :88:25 LANALYZ. SRE OBJEXEOUT.B52;1 o9e 48) 
: 698 1086 ! Now we go into a loop, once through for each 8 bytes to be formatted. 

; 63) 10 § i = 0; 

; ? § 1328 while .i issu .data_dscllen] do ( 

3 ? ¢ sg ! Calculate the number of bytes that will go on this Line. 

5 ? ° 1906 count = minu(.data_dscClen]-.i,8); 

; 638 1064 ! Next in the argument List we need a count of the spaces to skip 

; 639 1065 ! so the bytes will be Lined up from right to left. 

> 640 1066 

; 641 1067 arg_list(4] = (8 = .count) * 3; 

3 Fok: 1068 : 

; 646 1069 ! Now we need the count itself. 

3: 664 1070 

; 645 1071 arg_list(5] = .count; 

3 646 1976 

3 647 107 : Now we loop chrough 8 (or less) bytes and put them in the 

; 648 1074 3 ! argument ‘st (backwards, of course). 

; 6469 1075 3 

: 650 1076 4 decr j from .count-1 to 0 do ( 

; 651 1077 4 org. ttstlee.i2 = ,data_vector(.i]; 

; 65 1078 & increment (i); 

; «65 1079 3 ); 

3 654 1080 3 

s 695 1081 3 ! Next we have the byte offset. 

; 656 Hh 3 j 

3; 657 10835 3 arg_list(6*.count] = .i = .count; 

; 658 1084 3 : 

; 659 1085 3 ! Now we have to add to the argument List the byte count and a 

; 660 1086 ; ! pointer to the byte string. 

; 661 1087 

3; 662 1088 3 arg_listl7*.count] = .count; , 

; 663 1089 3 arg_list(8+.count] = data_vectorl.i - .count]; 

3 664 1090 3 

: 665 1091 3 ! Finally, fill in the argument count. 

; 666 1092 3 : 

3; 667 1095 3 arg_list{0] = 8 + .count; 

: 668 1094 3 

; 669 1095 ; ! Now we can print the hex data. 

; 670 1096 ; 

3 «671 1097 3 callg(arg_list,anl$format_line); 

3; Of 1098 § ); 

; 67 1099 

3: 674 1100 § return; 

3; 675 1101 

; 676 1102 1 end; 

003C 00000 ENTRY ANLSFORMAT_HEX, Save R2,R3,R4,R5 3 1022 

55 FEGB «CF «9E 00002 MOVAB ANLSFORMAT“LINE, R5 : 
zt BO AE 9€ 00007 MOVAB -80(SP), SP . 


AC DO 0000B MOVL DATA, R& > 1025 


ee 


53 


|; Routine Size: 


OBJEXEOUT = Handle Report Output 
ANLSFORMAT_HEX = Format Hex Dump of Data 


50 


152 bytes, 


rare : 


4 


ees | 
000000006 8F 

ges 

7 

65 i) 

AE 

08 AE +: AC 
OC AE 000000006 of 
10 00 

4F 

50 64 
50 53 
08 50 
03 
50 08 
52 50 

50 F8 a 

50 0 
10 «AE 50 
146 «AE 52 
50 52 
09 

18 AESO 04 wae | 
F4 50 

53 52 

18 AE42 50 
1C AES? 52 
20 AES? 04 8440 
6E 08 A2 

65 6€ 


Routine Base: 


ak 


SesSSSSesssss 


SSS35555555555 
COOOCCooOoOoOooO 


SCODES + 0300 


10 
1i-beo- 


1986 44:58:52 


AX-11 Bliss-32 v4.0 


ANALYZ.SRC OBJEXEOuT. ° 231 


0 


#ANLOBJ$ HE XHEADING! 
INDENT JLEVE 


’ i son SF CRRAT LINE 
#ANL 08J5 HE XHEAD ING2 
INDENT L LEVEL 


#3, eS tee —LINE 


ARG_LIS 

INDENT eve ARG_LIST+8 
#ANLOBJ _HEXDATA, “ARG_LIST#12 
#0, #16, (R4), I 


6 
(R4), RO 
1, Rb 
rb, #8 
3$ 
#8, RO 
RO. COUNT 
-8(R2), 
#3, R 
RO. ARG_L 
COUNT, 
COUN 


$ 
a4(R4)CIJ, ARG_LIST+#+24(J] 


1ST+16 
Ri LIST+20 


4$ 
COUNT. I, 
RO, ARG f 18+ *26CCOUNT) 
COUNT, ARG_LIST+28CCOUNT 
04 (B4ICROI, A *Cists SoLCOUNT 


8(R2) 
ARG. list. SRNL $F ORMAT_LINE 


: 


~w 
co-— 


ocooo Oo 
~ 
™~ 


83 


eb te at se id 


—-OCoooo 
0 
w 


02 


10 
JEXEOUT = Handle Report Output 1b-Se “1984 23:36:57 AX-11 Bliss-32 V4.0-74 
SFORRAT FLAGS - Format Flag Bits 14-Sep-1984 $7:83:33 LANALYZ.SRE OBJEXEOUT .852;1 


eet 


Pome at 


Z 


ore 1103 1 Zsbttl “ANLSFORMAT_FLAGS - Format Flag Bits’ 
6 11 1 fee 
1105 1 ! Functional Description: 

1 11 7 3 This routine is called to format the flags in a byte/word/longword 

¢ 1198 : } of flags. 

11 1 | Formal Parameters: 

5 11190 1! indent_ level The level at which the introductory message is to 
one 111 +7! be indented. The flags are indented one more level. 
68 a 1} intro_msg The introductory message. 

688 1115 1! flags The flag bits. 

14 11144 «17: flag def A longword vector defining the flags. The zeroth 
6 33) Ft entry specifies the highest-numbered flag. The 

691 1133 1} remaining longwords contain the address of a counted 
69 tht ae string g ving the name of the flag. If the flag is 
O37 1138 : undefined, the Longword contains zero. 

695 11 9 1! Implicit Inputs: 

23 1 : global data 

698 11 ‘ 1! Implicit Outputs: 

4 1 $ ; global data 

701 1126 1 | Returned value: 

70 1198 1 3 sa 

704 1129 1 ! Side Effects: 

705 1130 1! 

706 ie 1 !=- 

708 1138 | 

444 Ht 3 global routine ant$format_flags(indent_level,intro_msg,flags,flag_def): nmovalue = begin 
711 1136 bind 

ays 1137 g flags_vector = flags: bitvector(], 

71 1138 tlag_def_vector = .flag_def: vector[,long); 

714 1139 

715 1140 local 

716 1141 i: long; 

18 148 9 

4h aiee ! Begin by printing the introductory message. 

re! 14 ani $format_line(2,.indent_level,.intro_msg); 

458 1148 ! Now we Loop through the flags and process each one that is defined. 

se Hd ! we print the flag name, bit number, and current setting. 

56 1151 incru i from 0 to .flag_def vector(0) do ( 

72 1186 if .flag_def_vector£.i+1] nequ 0 then : 

728 115 anl $format_line(0,. indent Level +l antobj$_ftag. : 
729 1154 .1,-flag_def_vector(.i+i]>.ftlags_vectorl.i]); 
Te ee 

7? ¢ 1183 return; 

73 1158 

734 1159 1 end; 


eetia" 


7€ 


; Routine Size: 


00 0008 
7€ 06 AC % 000 
8 ) ote 
FOAC CF 4 FBO 

§ D4 00000 

50 10 ac DE 90011 
sks Bs 8 

1D 13 0001 
Oc AC 01 Ht EF poet 
06 AO OD B005 

52 DD 00024 
000000006 8F DD 44 6 

7€ 04 C Q1 C1 0002C 
7E 04 00031 
FD81 =sCCF 06 FB 00033 
52 D6 00038 

10 «BC 52 D1 QO03A 
D1 1B 000 3 

04 0004 


65 bytes, Routine Base: S$CODE$S + 03A5 


10 
pray ty ded = Handle Report Output. 1S-sep-19 
ANLSFORMAT_FLAGS = Format Flag Bits 14-Sep-19 


wr 
PM 


Be 99:38:33 


ANLSFORMAT FLAGS, Save R2 
INDENT LEVEL, -(SP) 


#3, ANLSFORMAT_LINE 
$ 
@FLAG_DEFCIJ, RO 
Sine) 
1, #1, FLAGS_VECTOR, -(SP) 
home 
#ANLOBJS$_FLAG 
#1, INDENT_LEVEL, =(SP) 


-($p 
#6, ANLSFORMAT_LINE 
1, @FLAG_DEF 

1§ 


AX-11 Bliss-32 V4.0-74 
ANAL YZ. SRC JOBJEXEOUT .852;1 


Pome att 


10 


JEXEOUT OBJE KEOUT 
= Handle Report Ou 
at ANL SF ORMAT DA - ey lansep- 
, 1 > _DATA_TYPE = Format a Data Type lenSep=19Be #7383535 LANALYZ SRE OBJeXEOuT.B Page 13) 
; a . 
; i 118} ! ree ANLSFORMAT_DATA_TYPE = Format a Data Type’ senreroerectone - 
785 1136 : Gain + Doser tpt ions 
1162 outine is called to f i 
ret W108 : ; as defined in the VAX etltectate ttt fan sat cscapen Pues 
a : 
EE cepa a 
; He _leve The le 
: i H: : iota ties in ot ig iy wee for the Line. 
eo 1309 : Implicit Inputs: 
: hte at 4 ae global data 
3; 749 1178 1! Impli 
+ TS te mplicit Outputs: 
751 195 41 global data 
s 1178 : Returned Value: 
3 734 1178 1} none 
3 38 1105 ; . Side Effects: 
; r 1181 1 jee 
a ree i 1 
3 o 9 1185 #1 
: a? global routine anl$format_data_type(i 
3 re 1185 2 uty ndent_level,data_type): novalue = begin 
; ~° 1187 own 
; Ke: 1188 data_t 
res 1338 _type_table: vector(33,long]) initial ( 
i Tee 1133 uplit Byte (tase ic "a3 
Tey Hb uplit byte(Zascic "V"). 
i Tee 1133 uplit byte(Zascic ‘Bu's 
: Tes Bb uplit byte(Zascic wu’), 
: Th Bg, uplit byte(Zascic "LU'), 
: in Higa uplit byte(Zascic "OuU"); 
i Th isae uplit byte(Zascic ‘B') : 
: 7 ites uplit byte(Zascic ‘w'): 
: Tf ‘ize uplit byte(Zascic "L"); 
ims 1198 uplit byte(Zascic 'Q"), 
Hae 1199 uplit byte(Zascic ‘F"), 
: Me 130 uplit byte(Zascic "D"). 
te oe up lit byte(Zascic "FC*) 
ip 13 uplit byte(Zascic "DC"), 
Hee: 1S9? uplit byte(Zascic ‘T*) : 
ik isng uplit byte(Zascic *nu's 
> 78 1206 uplit byte(Zascic "NL"), 
1208 uplit byte(Zascic ‘NLO'S 
Tee 1207 uplit byte(Zascic *NR®) : 
He 1608 upiit byte(Zascic *wRO'S 
The 1209 uplit byte(Zascic 'NZ'),— 
in 121¢ uplit byte(Zascic 'P'),- 
it i uplit byte(Zascic "21'S 
im 121 uplit byte(Zascic *ZEM'S 
mR 1213 uplit byte(Zascic "DSC*), 
ik 1216 uplit byte(Zascic "OU"),- 
; 1215 uplit byte(Zascic '0"),— 
uplit byte(ascic 6"), 


#10 
15<$ 


JEXEOUT OBJEXEOQUT = Handle Report Output ep-1984 23:36:57 AX-11 Bliss-32 v4.0-74 7 2 
iva ANLBFORMAT DATA TYPE > Format’ s Data Type Ve-8eb-1986 41:85:89 FAnauy2 SR loase cour 69251 290135 
; 793 1217 uplit byte(Zascic ‘H') 

5 79% 1 18 uplit byte(Zascic ‘GCS, 

3; «795 121 uplit byte(Zascic ‘HC") 

i 29% 1220 uplit byte(Zascic *CiT’S 

; 79 1 uplit byte(Zascic "BPv')5; 

. ee 

; 800 1226 ! If it is a standard data type, print it's name and number. Otherwise just 

3 a3 : 5 ! use the number. : 

3 808 1 $ anlS$format_lLine(0,.indent_level ,anlobj$ datatype, 

; 806 1228 (if -data_type (ssu ZalTocation(data_type_table)/4 then .data_type tablet date, typed 
; 805 1229 else uplit bytetZascic °777%)), 
5 Boe 1230 -data_type); 
3 80 1231 

; 808 1 ¢ return; 

; 809 1 3? 
3 810 1 1 end; 


-PSECT SPLITS,NOWRT,NOEXE ,2 


5A 01 042 P.AAL: .ASCII <1>\2\ : 

56 01 00044 P.AAJ: .ASCII <T>\V\ : 

55 4 BS 00046 P.AAK: .ASCII <2>\BU\ 3 

55 57 02 00049 P.AAL: .ASCII <2>\WU\ 3 

55 4C 8S Q004C P.AAM: .ASCII <2>\LU\ F 

55 51 O02 OQOO4F P.AAN: .ASCII <2>\QU\ : 

$3 01 00052 P.AAO: .ASCII <1>\B\ : 

57 01 00054 P.AAP: .ASCII] <1>\W\ 3 

4C 01 00056 P.AAQ: .ASCII <1T>\L\ 3 

51 01 00058 P.AAR: .ASCII <1>\Q\ : 

46 01 OOOSA P.AAS: .ASCII <1>\F\ i 

44 01 OO0SC P.AAT: .ASCII <1>\D\ : 

43 46 BS QOOSE P.AAU: .ASCII <2>\FC\ 3 

43 44 Q 00061 P.AAV: .ASCII <2>\DC\ é 

54 01 00064 P.AAW: .ASCII <1>\T\ ; 

55 4— 0O 00066 P.AAX: .ASCII <?>\NU\ 3 

4C 4E O 00069 P.AAY: .ASCII <2>\NL\ J 

4F 4C 4E O Q006C P.AAZ: .ASCII <3>\NLO\ é 
52 4E 8 eta P.ABA: .ASCII <2>\NR\ ; 

4F 52 4€ O03 00073 P.ABB: .ASCII <3>\NRO\ F 
SA 4 B¢ Beek P.ABC: .ASCII <2>\NZ\ 3 

5 1 OO7A P.ABD: .ASCII <1>\P\ 3 

49 SA O QO07C P.ABE: .ASCII <2>\ZI\ ; 

4D 45 SA QO OOO7F P.ABF: .ASCII <3>\ZEM\ : 
43 53 44 O83 00083 P.ABG: .ASCII <3>\DSC\ ; 
55 4F O2 00087 P.ABH: .ASCI] <2>\0U\ : 

4F O1 OO8A P.ABI eASCIIT <1>\0\ 3 

47 4 OO8C P.ABJ: .ASCII <1>\G\ 3 

ry 1 a4 P.ABK: .ASCII] <1>\H\ 3 

$3 4 0 00090 P.ABL: .ASCII <2>\GC\ 3 

4 $8 0095 P.ABM: .ASCII <2>\HC\ i 

54 49 & 0096 P.ABN: .ASCII <$>\CIT\ ; 
7° ?? 42 QOO9A P.ABO: .ASCII <3>\BPV\ ; 
F SF 3F OO9E P.ABP: ASCII <3>\??7\ : 


Feecmbeccnset 
EoD Be 


eet 


00000000" 00000000° 00000000° 


: 00009 ® 
sti 38 000" 
000000" 00000000° 


3; Routine Size: 


EO0UT = Handle Report Output 


ety 
ORMAT_DATA_TYPE = Format a 


44 bytes, 


Data Type 


00000060° 


8 0000" 


00000000° 


ttt 
9000000" 
0000000° 


0000000" 


0000° 
00000° 


00000000* 00000000° 


00 
50 08 


21 
0000°CF 
50 0000° 
000000006 8F 
04 of 


VAQOfLOoOvw yr 
OoOVNONOOO 
vcvoo-0-00C0S9 
ouom-omMm—-TOoo 


FD4D ss 05 FB 


Routine Base: S$CODE$ + 0366 


12 
15-Sep-1984 
14-Sep-1984 


10 


AX-11 Ot ist =32 V4.0-74 
ANAL YZ. SRC joa JE xEOuT.8 231 


17:38:32 


-PSECT SOWNS,NOEXE,2 


00288 DATA_TYPE TABLE: 


SSssss 
ooooooooooo 


ooooo 


18: 
23: 


-RODRESS P AAI, P.AAJ, P.AAK, P.AAL, P.AAM, = 


AAN, P. AAO, P. AAP, *P. AAQ, P.AAR, P.AAS, 
P.AAT, s AAU, sent % AAW, P.AAX, P.AAY, 
P.AAZ, P.ABA, P.ABB, P ~ABC, P.ABD, P.ABE, 


PLABF, P.ABG, P.ABH, P.ABI, P.ABJ, P.ABK, 
P.ABO 


P.ABL, P.ABM, P.ABN, 
PSECT $CODES,NOWRT,2 
.ENTRY ANLSFORMAT_DATA_TYPE, Save nothing 
VL DATA_TYPE,~RO 
PUSHL RO 
MPL RO, #33 
BGEQU 1$ 
PUSHL DATA_TYPE_TABLECRO] 
BRB $ 
MOVAB p ABP. RO 
PUSHL RO 
PUSHL #ANLOBJ$_DATATYPE 
PUSHL INDENT T_LEVEL 
CLRL (SP 
CALLS s. ANL $F ORMAT_L INE 


Page 


33 
(12) 


1184 
12350 


1228 


1229 
1227 


1234 


Bo Oe Be Be Oe Oe Se Se Be Be Be Oe Os Ge Be Se Se Be Se Se Se Se Ge Se Se Ge Se Se Se Se Se Se Ge SH Ge Ss Se Se Ge Se Ge Ge Se Se Se Se Se Se Se Se Se Geese Se SH Se ae 


eet 


SB NWAWNNNAWARPIPIPPOPOPNNDS 2 2 OS SO es 
—O OONO VE WN O OONO VE WN" OOONOUE wr 


842 


0 G0 Od Gd Gn 09 C0 On CO 
PPD PVA AISI 
OONOUE wr 


11 
OBJEXEOUT = Handle Report Output 15. -Sep-1984 if 38: 32 AX=11 Oi ieg- -32 v4.0 


ANLSFORMAT_MASK = Format an Entry Mask 14- ~8ep- 1984 


_— 


i 


PAEXAAPEAEASAAASA MAMAN NS SLL LLP EE 


el el a el ee ee el eel el ll ee el el me ce el a el el el el ll el el lt el el el el el el el el el el cl el el ll ll el el ll ll ll el el el 


PIPRIPOPGNPGPGAINPYMPO NINO PNIPSNYATPYNIPDNYNY NY NYINI NIN NINININI ANI NINPIPIPINPIPYIAINIAININININTININIPINPPUND 
=O OWN VE WD 0 OO NOME WN 0 ODNA MEW (OO ONO VEN OOOVNOUE WN OO@ 


COODWDOWDWOWDODOOON NNN NNN NS 


RaPRaPORINIWWE B & BPP NPGAPNDIPPIPUNPININPINPINIPINININPININD <9 tO OO SS OO OO 


Esbetl "ANLSFORMAT_MASK = Format an Entry Mask‘ 


i "Functional Description: 
This routine is called to format an entry mask word. 


Formal Parameters: 
indent_level The level of indentation for the mask. 
mask The mask itself. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 


global routine anl$format_mask(indent_level,mask): novalue = begin 


bind 
mask_vector = mask: bitvector(16]; 


own 


bit_name: vector[16,long] initial ( 
fe "RI, ' "Re ss sj > Ped? 
*"R4,', "RS5.°. "R6 < "R7 . 
ed es, Pid "R10, * "RIK, > 
‘oo a cna te ‘IV, ° ‘DV, 3 
local 
i: long, 
bit_name_len: long; 
local 


local_described_buffer(mask_buf ,64); 


! We are going to scan the entry mask and concatenate together the names 
! of the bits that are on. 


mask_bufClen] = 0; 
incru i from 0 to 15 do ( 
if .mask_ vector(.i] then 
it_name_len = Cit -i eglu 10 or .i eqlu 11 then 4 else 3); 
ch$move(-cbit name_ Len, bit_namel.i], .mask_buf(ptr]+.mask “bufClen]); 
; mask _bufflen] = .mask “pufflen) + .bit _name_len; 
); 


! If any bits were set in the mask, we will have a spurious trailing comma. 
! Get rid of it. 


ANALYZ. SRC] OBJEXEOUT 


72882:1 


Page 43) 


ita" 


OBJ 
ANL SF 


38 
9% 
95 


7 
8 


—> te 4 a te 


9 

99 
00 
01 


yeouY - Handle Report Output 
ORMAT_MASK = Format an Entry Mask 


if .mask gett tend gtru 0 then 
decrement (mask_buf[len]); 


! Now we can print the mask. 


anl$format_line(0,.indent_level ,anlobj$_mask,mask_buf); 


: return; 
1 end; 
~PSECT 
00 2C 30 52 0033c¢ BIT ene Ore 
00 2C 31 52 00340 ASCII 
00 2C 32 52 00344 «ASCII 
00 2C 33 52 00348 ASCII 
00 2C 34 52 0034C ASCII 
00 2C 35 52 00350 ASCII 
00 2C 36 52 00354 ASCII 
00 2C 37 52 00358 -ASCII 
00 2C 38 52 0035¢ ASCII 
00 2C 39 52 00360 ASCII 
2C 30 31 52 00364 ASCII 
ec 31 31 52 00368 -ASCII 
00 2C 2D 2d 0036C ASCII 
00 2C 2D 2d 00370 ASCII 
00 2C 56 49 00374 «ASCII 
00 2C 56 44 003578 ASCII 
-PSECT 
OOFC 00000 ENTRY 
E BC 9E 00002 MOVAB 
E 40 8F 9A 00006 MOVZBL 
O04 AE 08 AE 9Y9E 0000 OVA 
6— B4 OO00F CLRW 
56 D4 00011 CLRL 
25 08 AC 56 €1 00013 1$ BBC 
OA 56 D1 00018 CMPL 
05 13 0001B BEQL 
0B 56 D1 0001D CMPL 
05 12 00020 BNEQ 
57 04 D0 00022 2% MOVL 
03 11 00025 BRB 
57 03 D0 00027 3$ MOVL 
50 6E 3C OO02A 4% MOVZWL 
50 04 AE CO pp0eD ADDL 
OO000'CF46 DF 00031 PUSHAL 
60 9E 57 28 00036 MOVC3 
6£ 57 AO OOO3A ADDW2 
56 D6 0003D 5$: INCL 


AX-11_ Bliss=32 V4.0-7 
ANALYZ.SRCJOBJEXEOUT. 3 231 


SOWNS ,NOEXE,2 


\RO,\<0> 


\IV,\<0> 
\DV,\<0> 


SCODES,NOWRT 2 
ANLSFORMAT MASK, Save R2,R3,R4,R5,R6,R7 
-68( * ; i. 


#64, MASK 
MASK BursB” UaasK _BUF +4 
MASK_BUF 


I 
I, MASK_VECTOR, 5$ 
1, #10 


2$ 
I, #11 
z 


a, BIT_NAME_LEN 


#3, BIT_NAME_LEN 
MASK_BUF, RO 

MASK~BUF +4, RO 

BIT_NAMELI 

BITTNAME_LEN, a(SP)+, (RO) 
BIT. NAME “LEN, MASK_BUF 
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Pete Se Se Se Se Be Se Se Se Se Se Se Be Se Se 


Pee Se Se Be Se Se Se Be Se Se Se Se Be Se Bs Se Se Be Oe 


3; Routine Size: 


OBJEXEQUT = Handle Report Output 
ANLSFORMAT_MASK = Format an Entry Mask 


eet 


OF 56 D 

sf 

gf 8 

—E 0D 

000000006 8F D 

06 AC D 

7E OD 

FCFO CF 04 6 


93 bytes, Routine Base: $CODE$ + 0412 


Foroo0o www 
OOOCCGOOOCOOOooO 
fa leolejeolelololeleiei =) 
oleolelelolololelajloia) 
DIP & & Ew 


ONVTVIO POO erm 


— -+ 
Suwa 


o 
nr 


11 
“Se 
Se 


198e 11:58:55 FANALYZ°SRCJOBSENEOUT682: 1 
CMPL wis 
iste BASK BUF 
bush, Seek Ou 
PUSHL #ANLOBJ$_ MASK 
PUSHL INDENT LEVEL 
CALLS #4, ANLSFORMAT_LINE 


1301 


= =” 


ll 


11 
JEXEQUT OBJEXEOUT = Handle Report Output Sse 1984 23:36:57 AX-11 Bliss- 4.0-74 
vou=000 ANLSFORMAT PROTECTION = Format Memory Protectio 14-Sep-19 4 $7:88:35 LANALYZ°SRE SOB JEXEOOT 8 2:1 Pee 25 


H geo : oS : Rsbetl "ANLSFORMAT PROTECTION = Format Memory Protection Code’ 

; 88° 1506 i Functional Description: 

; 8 1305 1 his routine is responsible for formatting a 4-bit memory 

3 Bae i of ! protection code in a nice way. 

;  BR6 1308 1 | Formal Parameters: 

; «887 1309 1! indent_level The level of indentation for the Line. 

; Hts ; 19 : prot_code The 46-bit protection code. 

; 890 1312 1 § Implicit Inputs: 

3 4 1318 : global data 

: 89 1315 1! Implicit Outputs: 

; Boe 1318 : global data 

; 4: 1318 : ; Returned Value: 

3 : non 

: 898 1320 1 | we 

3 oop 135! : Side Effects: 

; 901 1358 1 ie- 

; 902 1326 1 

g 90> 1325 1 
a ae 1388 $ global routine anl$format_protection(indent_level,prot_code): novalue = begin 
Poe i i de,tabtet stort gee 

; prot_code_table: vector ,long) initial ( 

: 908 1330 2 uplit byte (Rascic "NA'), 

3; 909 1331 2 uplit byte (Zascic '???"), 

: 910 1332 2 uplit byte (Zascic ‘Kw'), 

; 911 1333 2 uplit byte (Zascic ‘KR'), 

3; 912 1334 2 uplit byte (Z%ascic ‘UW'), 

3 915 1332 2 uplit byte (Rascic *EwW'), 

; 914 1336 2 uplit byte (Zascic ‘ERKW'), 

; #915 1337 2 uplit byte (Zascic ‘ER'), 

; 916 1338 2 uplit byte (Zascic "SW", 

3s 9I7 1339 2 uplit byte (Zascic "SREW'), 

; 918 1340 2 uplit byte (Zascic "SRKW"), 

; «919 1341 2 uplit byte (Zascic *SR') 

: 920 1342 2 uplit byte (Zascic ‘URSW'), 

3 921 1343 2 uplit byte (Zascic ‘UREW'), 

: 922 1344 2 uplit byte (Zascic ‘URKW'), 

3 aS? tee § uplit byte (Zascic ‘UR')); 

: 925 1347 2 

3 3s6 HF § ! Simply print a Line with the protection code. 

: 34 1329 2 anl$format_line(0,,indent_level,anlobj$_protection,.prot_code_tablel .prot_code]); 

: 930 135¢ : return; 

3; 931 1355 2 

: 932 1354 1 end; 


-PSECT SPLITS,NOWR’ ,NOEXE,2 


te 


opt regu OBJEXEOUT = Handle Report Output 1 
Vv ANLSFORMAT_PROTECTION = Format Memory Protectio 1 
41 4E 
3F eS 
7 rr 
25 $3 
es 4 
57 4B 45 33 
52 45 § 
go 33 8 
57 45 5 4 
57 4B 2 53 04 
53 (02 
57 53 52 55 06 
57 45 52 55 a 
57 6B 52 55 06 
52 55 02 


00000000" 00000000° 00000000" 00000000° 00000000° 00000000" 


, 00000000" 00000000° 000900L0* 00000000" 00000000* 00000000° 
00000069" 00000000° 00000000° 00000000" 


50 08 ac 00 
QO00'CF40 DD 


COOOCOCCOCOOCOOCOOCOOOooO 


lolelelelelelelelelolelelolelel=] 
pole lele lela olelelelelelelolaia) 
CVUVINOOoCwWwOe,r>>r>r>r 
ONNOS MOS F&F VMU BO OVTV 


00000000G 8F DD 00008 
04 AC 


| 7E 
FCD4 CF 04 FB 
ls Routine Size: 28 bytes, Routine Base: S$CODES + 046F 

j 


fF 11 
ESBcISEL TEASED bua Mdthoelta 


P.ABQ: .ASCII <2>\ 
P.ABR: .ASCI] <35>\?77\ 
P.ABS: .ASCII <2>\KW\ 
P.ABT: .ASCII <2>\KR\ 
P.ABU: .ASCII <2>\UW\ 
P.ABV: .ASCII <2>\EW\ 
P.ABW: .ASCII <4>\ERKW\ 
P.ABX: .ASCII <2>\ER\ 
P.ABY: .ASCII <2>\Sw\ 
P.ABZ: .ASCII <4>\SREW\ 
P.ACA: .ASCII] <4>\SRKW\ 
P.ACB: .ASCII <2>\SR\ 
P.ACC: .ASCII <4>\URSW\ 
P.ACD: .ASCII <4>\UREW\ 
P.ACE: .ASCII <4>\URKW\ 
P.ACF: .ASCII <2>\UR\ 
-PSECT SOWNS,NOEXE,2 
PROT_CODE_TABLE: 
“ADDRESS P.ABQ, P.ABR, Ae ABS, i ABT, 
P.ABV, P.ABW, P.ABX, P.ABY, P ABZ, P.ACA, 
P.ACB, P.ACC, Pare. P.ACE, P.A 
-PSECT S$CODES,NOWRT,2 
-ENTRY ANLSFORMAT_PROTECTION, Save nothing 
MOVL Prot CODE,” R 
PUSHL PROT CODE. TABLECROJ 
PUSHL #ANLOBJ$_PROTECTION 
PUSHL  INDENT_LEVEL 
CLRL -(SP 
CALLS a4, ANL $F ORMAT_LINE 


ANALYZ.SRC OBJEXEOUT 8 231 


P.ABU, = 
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Be Se Sa Se Be Be Se Se Se Se Se Se Se Se Be Be 


(14) 


1354 


OBJEXEOUT = Handle Report one 
ANLSFORMAT_SEVERITY = Format Error Severity Cod 14-Sep-19 


PAO 


a ee ee ee eee 
BE PE BAAN ANNAN NNN NANNN AWA OANNI NINA AANA ANIA NNN NNN 


bor egat ee FRSA DY DAS + + at tet te tet PP Pe Pe BPs Se LS 8 
BAN 90 ODNOA UE WIN 9 OD NA VE WN OS ODNA VE WN (OOO VOAUE WN" OVOOnNOu 


= POPIPOPGPINPININIAPINPININPI PIPPI PIPINPIPONINPIDINIDYIDY 9 8 OP 


18-29-19 rs $9: 2:22 rot Bliss-32 v4.0- 


sbttl "ANLSFORMAT_SEVERITY = Format Error Severity Code’ 
++ 


Functional Description: 
This routine is called to format a standard VMS error severity 
code. It also checks to make sure the code is valid. 


Formal Parameters: : 
indent level Level of indentation for report. 
severity The severity code. 


Implicit Inputs: 
global data 


! Implicit Outputs: 
global data 


Returned Value: 


Side Effects: 


global routine anl$format_severity(indent_levei,severity): novalue = begin 


own 
severity_code_table: vector[8,long] initial ( 
uplit byte(Zascic ‘WARNING'), 
uplit byte(Zascic ‘SUCCESS"), 
uplit byte(Zascic ERROR"), 
uplit byte(Zascic 'INFO'), 
uplit byte(Zascic ‘SEVERE*) 
uplit byte(Zascic ‘reserved'), 
uplit byte(Zascic ‘reserved'), 
uplit byte(Zascic ‘reserved')); 
! Format a Line with the severity code on it. 
anl$format_line(0,.indent_level,anlobj$_severity,.severity_code_tableL.severity]); 
! Check for a reserved severity. 


if esover st gequ 5 then j : ; 
anl$format_error(anlobj$_badseverity,.severity); 


return; 


end; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


3 49 4 6 41 57 O7 OQOODF P.ACG: .ASCII <?7>\WARNING\ 
55 53 O07 OOOE7 P.ACH: .ASCII <?7>\SUCCESS\ 


NALYZ.SRC JOBJEXEOUT 


ara rag ty sed - Rendis Report Output 
v04 ANLSFORMAT_SEVERITY = Format Error Severity 
52 4F S52 52 45 05 
GF 46 i 49 4 
45 ; 45 ; 4 33 $ 
64 65 76 65 65 
66 65 76 72 65 73 65 72 08 
64 65 76 72 65 735 65 72 O08 


00000000" 00000000° 00000000° 00000000* 00000000° 00000000' 


00000000" 00000000" 


0004 

52 08 AC 00 
OO'CF42 DD 

00000000G 8F ODD 

046 AC DD 

7E 04 

FCBS CCF 04 FB 
05 52. D1 

OD iF 

52 0D 

00000000G 8F ODD 

FD2B- CCF 02 FB 


; Routine Size: 46 bytes, Routine Base: $CODES + 0488 


19 


se 


»PSECT 


3:32 AX-11 Bliss-32 V4.0-7 
752 ANALYZ.SRC OBEXEOUT.B 231 


<5>\ERROR\ 
<4>\ INFO\ 
<6>\SEVERE\ 
<8>\reserved\ 
<8>\reserved\ 
<8>\reserved\ 


SOWNS ,NOEXE ,2 


0038C sneetahe ye: TABLE : 
00304 


DRESS P.ACG, Ag ACH, P.ACI, P.ACJ, P.ACK, 
P.ACL, P.ACM, P.ACN 
-PSECT S$CODE$,NOWRT,2 
e ENTRY Man. SP ORRAT SEVERITY, Save R2 
MOVL SEVERIT 
PUSHL SEVERITY. * CODE TABLECR2] 
PUSHL M#ANLOBJS$ SEVERITY 
PUSHL  INDENT_ LEVEL 
CLRL -(SP 
CALLS #4, dea SFORMAT _LINE 
CMPL R2, #5 
BLSSU 
PUSHL R2 
PUSHL M#ANLOBJ$_BADSEVERITY 
a #2, ANLSFORMAT_ERROR 


Page 


40 
(15) 


1379 
1395 


1399 
1400 


1404 


~~ EE EEE 


SO ee ee ever = ee or 


11 
JEXEOUT = Handle Report Output 14.30 -1984 23:36:57 AX-11 Bliss-32 V4.0-74 
CHAE - See If user Wants to Continue 1a-8ep-19 4 97:28:23 ANALYZ.SRC JOBJEXEOUT.852;1 


isha" 


2® 


38 1406 } Bsbttl "ANLSINTERACT = See If User Wants to Continue’ 

98 140 1 ' Functional Description: 

988 14 : 1! This routine is called as part of the processing of the /INTERACTIVE 
p24 re : qualifier. We see if the user wants to continue with this file, 
991 411 1 _—_— 

4 1218 : Formal Parameters: 

none 

994 1414 1! 

995 1415 1 ! Implicit Inputs: 

238 1218 : } global data 

998 1418 1! Implicit Outputs: 

D4: pe ; global data 

1001 1281 1 | Returned value: 

1906 1058 : True if user wants to continue; false otherwise. 

1006 logs ; Side Effects: 

1006 1426 1 ie 

1007 1427 1 

1008 1428 #1 

Ho He 9 2 global routine anl$interact = begin 

1011 1431 $ local 

Ole et 2 status: long, 

HF et § local_described_buf fer (answer_buf,1); 

1015 1435 2 : 
ints re § ! First we display a message telling the user what to do. 

+ 44 4 rt > 4 § anl$format_line(-1,0,anlobj$_interact); 

1020 1440 2 ! Now we get the user's answer. If it is a period (.), then we return 
1083 ret: § ! false. If it's blank, we return true. If CTRL/Z, we just bag it. 
1098 1225 2 status = sg pty on ut (answer_buf); 

1024 1444 2 if .status eqlu rms$_eof then 

1025 1445 2 anl$exit_with_status(); 

nse ey § return ch$rchar(.answer_buf(ptr]) nequ ‘.*; 

1028 1448 1 end; 


0000 00000 ENTRY ANLSINTERACT, Save nothing 
SE 08 C2 00002 SUBL2 #8, SP 
01 DD 0000 PUSHL #1 
04 AE 08 AE 9€ 00007 MOVAB ANSWER_BUF +8, ANSWER_BUF +4 
000000006 8F DD 0000C PUSHL #ANLOBJ$S_INTERACT 
7E D4 00012 CLRL (SP) 
7E 01 CE 00014 MNEGL #1, =(SP) 
FCB9 CF 03 FB 00017 CALLS #3, ANLSFORMAT_LINE 


tie" 


; Routine Size: 


Name 
$GLOBALS 
SOWNS 


SPLITS 
SCODES 


File 
_$255$DUA28:[ 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=L1IS$:OBJEXEOUT/OBJ=OBJ$:OBJEXEOUT MSRC$:OBJEXEOuUi /UPDATE=(ENHS$: OBJEXEOUT) 


OBJEXEOUT = Handle Report Output 1 
ANLSINTERACT = See If User Wants to Continue 1l4- 
DD O00TC 
998980006 g0 6} f Bh 
1827A f 0 01 000 
5 12 0002C 
FEOO «CCF 0 FB 000 
0 ps 0035 1% 
2E 06 «OB } 00 
02 13 00039 
50 06 00038 
04 00030 28: 


62 bytes, Routine Base: SCODE$ + 0489 


1449 «1 
1450 0 end eludom 


PSECT SUMMARY 
Bytes Attributes 
4 NOVEC, WRT, RD ,NOEXE,NOSHR, 
988 NOVEC, WRT, RD ,NOEXE,NOSHR, 


4 RD ,NOEXE,NOSHR, 
1271 NOVEC,NOWRT, RD, EXE,NOSHR, 


Library Statistics 


socccee= Symbols -o---ee" 
Total Loaded Percent 
SYSLIBISTARLET.L32;1 9776 50 0 


COMMAND QUALIFIERS 


127) coge,’ 1276 data bytes 
00:54.1 


028 
Lexemes/CPU-Min: 20190 


Memory Used: 


187 pages 


4500-1984 93:39:22 AX=11 Bliss-32 V4.0-7% 


ANALYZ.SRC JOBJEXEOUT.852;1 


Pp 
CALLS #1, LIBSGET sl 
CMPL STATUS, #98938 
BNEQ 1 


CALLS #0, ANLSEXIT_WITH_STATUS 


LAL 
CMPB = @ANSWER_BUF +4, #46 
BEQL =s$ 

INCL ——RO 

RET 


-EXTRN LIBSSIGNAL 


Pages Processing 
Mapped Time 


581 00:01.0 


Page 


a 
(16) 


1443 
1444 


1445 
1446 


1448 


OBJEKEOUT cosrneoyt = Handle Report Output 
v04-000 ANLSINTERACT = See If User Wants to Continue 


; Compilation Complete 


«11 
15-Sep-1984 23:36:57 


VAK-11 Bliss-32 v4.0-742 


a 
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